home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / VSVBX.ZIP / MENU.FRM < prev    next >
Text File  |  1994-03-09  |  7KB  |  230 lines
  1. VERSION 2.00
  2. Begin Form fMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Resize me and see buttons size and elastic caption"
  5.    ClientHeight    =   4140
  6.    ClientLeft      =   525
  7.    ClientTop       =   1710
  8.    ClientWidth     =   7965
  9.    Height          =   4605
  10.    Left            =   435
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   4140
  13.    ScaleWidth      =   7965
  14.    Top             =   1335
  15.    Width           =   8145
  16.    Begin VideoSoftElastic VSElastic1 
  17.       Align           =   5  'Fill Container
  18.       AutoSizeChildren=   7  'Proportional
  19.       BackColor       =   &H00C0C0C0&
  20.       BevelInner      =   7  'Shadow
  21.       BevelInnerWidth =   8
  22.       BevelOuter      =   0  'None
  23.       BevelOuterWidth =   3
  24.       BorderWidth     =   0
  25.       CaptionPos      =   4  'Center Center
  26.       FontBold        =   -1  'True
  27.       FontItalic      =   -1  'True
  28.       FontName        =   "Arial"
  29.       FontSize        =   18
  30.       FontStrikethru  =   0   'False
  31.       FontUnderline   =   0   'False
  32.       ForeColor       =   &H0000FFFF&
  33.       Height          =   3615
  34.       Index           =   0
  35.       Left            =   0
  36.       ShadowColor     =   &H00404040&
  37.       TabIndex        =   4
  38.       Top             =   0
  39.       Width           =   3825
  40.       Begin VideoSoftElastic VSElastic2 
  41.          BackColor       =   &H00C0C0C0&
  42.          BevelInnerWidth =   0
  43.          BevelOuter      =   5  'Fillet
  44.          BorderWidth     =   4
  45.          Caption         =   "Welcome to VSVBX 4.0 Demo"
  46.          CaptionPos      =   4  'Center Center
  47.          FontBold        =   -1  'True
  48.          FontItalic      =   -1  'True
  49.          FontName        =   "Arial"
  50.          FontSize        =   18
  51.          FontStrikethru  =   0   'False
  52.          FontUnderline   =   0   'False
  53.          ForeColor       =   &H000000FF&
  54.          Height          =   2835
  55.          Left            =   420
  56.          ShadowColor     =   &H00404040&
  57.          TabIndex        =   12
  58.          Top             =   375
  59.          Width           =   3120
  60.       End
  61.    End
  62.    Begin VideoSoftElastic VSElastic1 
  63.       Align           =   4  'Align Right
  64.       AutoSizeChildren=   3  'Even Vertical
  65.       BackColor       =   &H00C0C0C0&
  66.       BevelInner      =   7  'Shadow
  67.       BevelInnerWidth =   3
  68.       BevelOuter      =   0  'None
  69.       BevelOuterWidth =   1
  70.       BorderWidth     =   12
  71.       ChildSpacing    =   8
  72.       Height          =   3615
  73.       Index           =   1
  74.       Left            =   3825
  75.       ShadowColor     =   &H00404040&
  76.       TabIndex        =   6
  77.       Top             =   0
  78.       Width           =   2070
  79.       Begin CommandButton Command1 
  80.          BackColor       =   &H00808080&
  81.          Caption         =   "&Splitter bars"
  82.          Height          =   735
  83.          Index           =   0
  84.          Left            =   180
  85.          TabIndex        =   0
  86.          Top             =   180
  87.          Width           =   1710
  88.       End
  89.       Begin CommandButton Command1 
  90.          BackColor       =   &H00808080&
  91.          Caption         =   "&Resizing/Flood"
  92.          Height          =   720
  93.          Index           =   1
  94.          Left            =   180
  95.          TabIndex        =   1
  96.          Top             =   1035
  97.          Width           =   1710
  98.       End
  99.       Begin CommandButton Command1 
  100.          BackColor       =   &H00808080&
  101.          Caption         =   "&IndexTab"
  102.          Height          =   720
  103.          Index           =   2
  104.          Left            =   180
  105.          TabIndex        =   2
  106.          Top             =   1875
  107.          Width           =   1710
  108.       End
  109.       Begin CommandButton Command1 
  110.          BackColor       =   &H00808080&
  111.          Caption         =   "&AWK Formulas"
  112.          Height          =   720
  113.          Index           =   3
  114.          Left            =   180
  115.          TabIndex        =   3
  116.          Top             =   2715
  117.          Width           =   1710
  118.       End
  119.    End
  120.    Begin VideoSoftElastic VSElastic1 
  121.       Align           =   4  'Align Right
  122.       AutoSizeChildren=   3  'Even Vertical
  123.       BackColor       =   &H00C0C0C0&
  124.       BevelInner      =   7  'Shadow
  125.       BevelInnerWidth =   3
  126.       BevelOuter      =   0  'None
  127.       BevelOuterWidth =   1
  128.       BorderWidth     =   12
  129.       ChildSpacing    =   8
  130.       Height          =   3615
  131.       Index           =   2
  132.       Left            =   5895
  133.       ShadowColor     =   &H00404040&
  134.       TabIndex        =   7
  135.       Top             =   0
  136.       Width           =   2070
  137.       Begin CommandButton Command1 
  138.          BackColor       =   &H00808080&
  139.          Caption         =   "&Fake Buttons"
  140.          Height          =   720
  141.          Index           =   7
  142.          Left            =   180
  143.          TabIndex        =   11
  144.          Top             =   2715
  145.          Width           =   1710
  146.       End
  147.       Begin CommandButton Command1 
  148.          BackColor       =   &H00808080&
  149.          Caption         =   "&MultiTabs"
  150.          Height          =   720
  151.          Index           =   6
  152.          Left            =   180
  153.          TabIndex        =   10
  154.          Top             =   1875
  155.          Width           =   1710
  156.       End
  157.       Begin CommandButton Command1 
  158.          BackColor       =   &H00808080&
  159.          Caption         =   "&No Labels"
  160.          Height          =   720
  161.          Index           =   5
  162.          Left            =   180
  163.          TabIndex        =   9
  164.          Top             =   1035
  165.          Width           =   1710
  166.       End
  167.       Begin CommandButton Command1 
  168.          BackColor       =   &H00808080&
  169.          Caption         =   "&Proportional"
  170.          Height          =   735
  171.          Index           =   4
  172.          Left            =   180
  173.          TabIndex        =   8
  174.          Top             =   180
  175.          Width           =   1710
  176.       End
  177.    End
  178.    Begin VideoSoftElastic StatusBar 
  179.       Align           =   2  'Align Bottom
  180.       BackColor       =   &H00C0C0C0&
  181.       BevelInner      =   0  'None
  182.       BevelOuter      =   1  'Raised
  183.       BevelOuterWidth =   1
  184.       BorderWidth     =   2
  185.       Caption         =   "VideoSoft, 2625 Alcatraz Avenue, Suite 271, Berkeley, California (510) 547-7295"
  186.       CaptionPos      =   4  'Center Center
  187.       FontBold        =   0   'False
  188.       FontItalic      =   0   'False
  189.       FontName        =   "MS Sans Serif"
  190.       FontSize        =   8.25
  191.       FontStrikethru  =   0   'False
  192.       FontUnderline   =   0   'False
  193.       ForeColor       =   &H00000000&
  194.       Height          =   525
  195.       Left            =   0
  196.       TabIndex        =   5
  197.       Top             =   3615
  198.       Width           =   7965
  199.       WordWrap        =   0   'False
  200.    End
  201. End
  202. Option Explicit
  203.  
  204.  
  205.  
  206. Sub Command1_Click (Index As Integer)
  207.   mousepointer = 11
  208.   Select Case Index
  209.     Case 0
  210.       Splitter.Show 1
  211.     Case 1
  212.       fFlood.Show 1
  213.     Case 2
  214.       IndexTab.Show 1
  215.     Case 3
  216.       calculator.Show 1
  217.     Case 4
  218.       fProp.Show 1
  219.     Case 5
  220.       fnolabels.Show 1
  221.     Case 6
  222.       fMultiTabs.Show 1
  223.     Case 7
  224.       fbuttons.Show 1
  225.  
  226.   End Select
  227.   mousepointer = 0
  228. End Sub
  229.  
  230.